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-- file Passl.Mesa 

-- last modified by Satterthwaite, July 16. 1978 9:47 AM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [charlength, maxword, wordlength], 
ComData: FROM "comdata" 
USING [ 

idANY, idBOOLEAN, idCARDINAL, idCHARACTER, idFALSE. 

idlNTEGER, idLOCK. idREAL, idSTRING, idTRUE. idUNWIND, 

nErrors, outerCtx, seAnon, sourceStream, tCO, tCl, 

typeBOOLEAN, typeCHARACTER, typeCONDITION, typelNTEGER, typeLOCK, 

typeREAL, typeSTRING], 
CompilerDefs: FROM "compilerdef s" USING [MakeSwappable]. 
ControlDefs: FROM "controldef s" USING [ControlLink, EPRange, GFTNull], 
LitDefs: FROM "litdefs" USING [FindLiteral ] , 
PlDefs: FROM "pldefs" USING [Parse, Scanner, Parser, PasslT], 
SegmentDef s: FROM "segmentdef s" 

USING [FileSegmentHandle. FileSegmentAddress , Swapin, SwapOut, Unlock]. 
StringDefs: FROM "stringdefs" USING [SubStringDescriptor], 
SymDefs: FROM "symdefs" 
USING [ 

ctxtype, setype, 

BitAddress. SERecord, 

HTIndex, SEIndex, ISEIndex, CSEIndex, recordCSEIndex, CTXIndex, 

codeANY, codelNTEGER, codeCHARACTER, typeANY, typeTYPE, 

HTNull, recordCSENun. IZ], 
SymTabDefs: FROM "symtabdefs" 
USING [ 

EnterString, fillctxse, makectxse, makenewctx, makenonctxse, 

makeSEChain, NextSe, resetctxl ist , UnderType], 
TableDefs: FROM "tabledefs" 

USING [TableBase, TableNotif ier, AddNotify, DropNotify], 
TreeDefs: FROM "treedefs" USING [empty]; 

Passl: PROGRAM 
IMPORTS 

CompilerDefs, LitDefs, PlDefs, SegmentDefs, SymTabDefs. TableDefs. 
dataPtr: ComData 
EXPORTS CompilerDefs, PlDefs ■ 
BEGIN 
OPEN SymTabDefs. SymDefs; 

-- symbol table bases 

seb: TableDefs. TableBase; -- semantic entry base 
ctxb: TableDefs. TableBase; -- context table base 

PlNotify: TableDefs .TableNotif ier « 
BEGIN 

seb ♦- base[setype]; ctxb *- base[ctxtype]; RETURN 
END; 

-- definition of standard symbols 

WordLength: CARDINAL = AltoDefs .wordlength; 

PrefillSymbols: PROCEDURE » 

BEGIN -- called to prefill the compiler's symbol table 

OPEN dataPtr; 

tSei, ptrSei: CSEIndex; 

rSei: recordCSEIndex; 

tCtx: CTXIndex; 

sei: ISEIndex; 

outerCtx <- makenewctx[lZ]; 

idANY <- MakeBasicType["UNSPECIFIEO"L, codeANY, TRUE, WordLength]; 

IF UnderType[idANY] H typeANY THEN ERROR; 
idlNTEGER <- MakeBasicType[" INTEGER"L , codelNTEGER, TRUE, WordLength]; 

typelNTEGER <- UnderType[idINTEGER] ; 
idCHARACTER ^ MakeBasicType["CHARACTER"L, codeCHARACTER, TRUE, AltoDef s . charlength]; 

typeCHARACTER <- UnderType[ idCHARACTER] ; 
-- make BOOLEAN type 

typeBOOLEAN ^ makenonctxse[SIZE[enumerated constructor SERecord]]; 

idBOOLEAN <- MakeNamedType["BOOLEAN"L, typeBOOLEAN]; 

tCtx *- makenewctx[lZ]; 

(seb+typeBOOLEAN)t ♦- SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[ 
enumerated[ 
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ordered: TRUE, 
valuectx: tCtx, 
nvalues: 2]]]; 
[] ^ MakeConstant["FALSE"L. tCtx, idBOOLEAN, 0]; 
[] ^ MakeConstant["TRUE"L. tCtx, idBOOLEAN, 1]; 
resetctxl ist[tCtx] ; 
idCARDINAL <- MakeSubrangeType["CARDINAL"L. 0, AltoDef s .maxword] ; 
[] <r MakeNamedTypeC"WORD"L, UnderType[idCARDINAL]] ; 
-- make REAL type 

typeREAL <- makenonctxse[SIZE[real constructor SERecord]]; 
(seb+typeREAL)t <- SERecord[mark3: TRUE, mark4: TRUE, 

sebody: constructor[real [rangetype: idlNTEGER]]]; 
idREAL 4- MakeNamedType["REAL"L, typeREAL]; 
-- make STRING type 

rSei <- MakeRecord[nFields:3, nBits:2*WordLength]; 
[] <- MakeField["1ength"L, idCARDINAL, [wd:0. bd:0], WordLength]; 
sei ^ MakeField["maxlength"L, idCARDINAL, [wd:l. bd:0], WordLength]; 
(seb+sei) .writeonce <- TRUE; 

tSei *- makenonctxse[SIZE[array constructor SERecord]]; 
(seb+tSei)t ^ SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[array[ 
packed: TRUE, 

indextype: idCARDINAL, -- a fudge 
componenttype: idCHARACTER, 
comparable: FALSE, 
lengthUsed: FALSE]]]; 
sei ^ MakeField["text"L, tSei. [wd:2, bd:0], 0]; 
tSei ♦- MakePointerType[MakeNamedType["StringBody"L, rSei]]; 
idSTRING ^ MakeNamedType["STRING"L, tSei]; 
typeSTRING <- UnderType[idSTRING]; 
-- make LOCK type 

rSei <- MakeRecord[nFields:l, nBits:WordLength]; 
(seb+rSei).unif ield ♦- FALSE; 

[] *■ MakeField[NIL, idANY, [wd:0. bd:0]. WordLength]; 
idLOCK ^ MakeNamedType["MONITORLOCK"L, rSei]; 
typeLOCK *- UnderType[idLOCK]; 
-- make CONDITION type 

rSei *- rSei <- MakeRecord[nFie1ds:2, nBits :2*WordLength]; 
[] ^ MakeField[NIL, idANY, [wd:0, bd:0], WordLength]; 
[] ^ MakeField["timeout"L, idCARDINAL. [wd:l, bd:0], WordLength]; 
typeCONDITION ♦- UnderType[MakeNamedType["CONDITION"L. rSei]]; 
-- make a universal pointer type 

ptrSei ^ MakePointerType[typeANY]; 
-- enter the Boolean constants 

idTRUE <r MakeConstant["TRUE"L, outerCtx, idBOOLEAN, 1]; 
idFALSE ^ MakeConstant["FALSE"L, outerCtx, idBOOLEAN, 0]; . 
-- make a universal NIL 

[] <- MakeConstant["NIL"L, outerCtx, ptrSei, 0]; 
-- make a neutral entry for error recovery 
seAnon ♦- MakeVariable[ 
name: "?"L, 
ctx: outerCtx, 
type: typeANY, 
offset: [wd:0, bd:0]. 
nBits: WordLength]; 
-- predeclare UNWIND 

tSei <- makenonctxse[SIZE[transfer constructor SERecord]]; 
(seb+tSei)t <- SERecord[mark3: TRUE. mark4: TRUE, 
sebody: constructor[ 
transfer[ 

mode: error, 

inrecord: recordCSENul 1 . 
outrecord: recordCSENul 1 ]]] ; 
idUNWIND <- MakeConstant["UNWIND"L, outerCtx, tSei, 
Con trolDefs. Control Link[procedure[ 
gfi: ControlDefs.GFTNull , 
ep: ControlDefs.EPRange-l, 
tag: procedure]]]; 
-- make some constants 
BEGIN 

tCO ♦- [literal[info: [word[index: LitDef s. FindLiteral[0]]]]]; 
tCl <- [literalfinfo: [word[index: Li tDef s .FindLiteral[l]]]]]; 
END; 
resetctxl ist[outer Ctx]; 
RETURN 
END; 
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SubStringDescriptor: TYPE ■ StringDefs .SubStringDescriptor; 

MakeNamedType: PROCEDURE [s: STRING, type: SEIndex] RETURNS [sei: ISEIndex] - 
BEGIN 

desc: SubStringDescriptor ♦- [base:s, offset:0, length: s . length] ; 
sei <- makectxse[EnterString[6desc], dataPtr .outerCtx]; 

BEGIN OPEN (seb+sei); 

idtype <- typeTYPE; idinfo ♦• type; idvalue ^ TreeDefs .empty; 

writeonce ^ constant <- TRUE; 

extended ^ public ♦- linkSpace ♦- FALSE; 

mark3 ^ mark4 ^ TRUE; 

END; 
RETURN 
END; 

MakeBasicType: PROCEDURE 

[s: STRING, code: C0..16), ordered: BOOLEAN, nBits: CARDINAL] 

RETURNS [ISEIndex] « 
BEGIN -- makes an se entry for a built-in type -- 
sei: CSEIndex « makenonctxse[SIZE[basic constructor SERecord]]; 
(seb+sei)t <- SERecord[mark3 : TRUE, mark4: TRUE, 

sebody: constructor[ 

basic[ordered:ordered, code:code, length:nBits]]]; 
RETURN [MakeNamedType [s, sei]] 
END; 

MakeConstant: PROCEDURE 

[name: STRING, ctx: CTXIndex. type: SEIndex. value: UNSPECIFIED] 
RETURNS [sei: ISEIndex] « 
BEGIN -- makes an se entry for a built-in constant -- 
desc: SubStringDescriptor <- [base:name, offset:0, length:name. length]; 
sei <- makectxse[EnterString[@desc], ctx]; 
BEGIN OPEN (seb+sei); 

idtype <- type; idinfo <- 0; idvalue <- value; 
writeonce <- constant ♦- TRUE; 
extended ^ public <- linkSpace <- FALSE; 
mark3 ^ mark4 <- TRUE; 
END; 
RETURN 
END; 

MakeVariable: PROCEDURE 

[name: STRING, ctx: CTXIndex, type: SEIndex, offset: BitAddress, nBits: CARDINAL] 
RETURNS [sei: ISEIndex] » 
BEGIN 

desc: SubStringDescriptor <- [base:name, offset:0, length:name. length]; 
sei ^ makectxse[EnterString[0desc], ctx]; 
BEGIN OPEN (seb+sei); 

idtype *- type; idvalue <- offset; idinfo <- nBits; 
writeonce <- constant ♦- public <- extended ♦- linkSpace ♦- FALSE; 
marks <- mark4 *- TRUE; 
END; 
RETURN 
END; 

rCtx: CTXIndex; 
seChain: ISEIndex; 

MakeRecord: PROCEDURE [nFields. nBits: CARDINAL] RETURNS [rSei: recordCSEIndex] » 
BEGIN 

rSei <- LOOPHOLE[makenonctxse[SIZE[notl inked record constructor SERecord]]]; 
rCtx <- makenewctx[lZ] ; 

(ctxb+rCtx) .selist +- seChain <- makeSEChain[rCtx , nFields, FALSE]; 
(seb+rSei)t <- SERecord[mark3: TRUE, mark4: TRUE, 
sebody: constructor[ 
record[ 

machineDep: TRUE, 

unifield: nFields » 1, 

argument: FALSE. 

defauUFields: FALSE. 

fieldctx: rCtx, 

length: nBits, 

comparable: FALSE, 
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privateFields: FALSE, 

lengthUsecl: FALSE, 

monitored: FALSE, 

variant: FALSE, 

linkpart: not! inked[]]]] ; 
RETURN 
END; 

MakeField: PROCEDURE 

[name: STRING, type: SEIndex, offset: BitAddress, nBits: CARDINAL] 
RETURNS [sei: ISEIndex] « 
BEGIN 

desc: SubStringDescriptor ; 
hti: HTIndex; 
IF name # NIL 
THEN 
BEGIN 

desc ^ [base:name, offset:0, 1ength:name. length]; 
hti <- EnterStringi@desc]; 
END 
ELSE hti <- HTNull; 
sei <- seChain; seChain ^ NextSe[seChain]; 
finctxse[sei , hti, FALSE]; 
BEGIN OPEN (seb+sei); 

idtype ^ type; idvalue <- offset; idinfo ^ nBits; 
writeonce ^ constant ^ public ♦■ extended ♦- linkSpace ^ FALSE; 
mark3 <- mark4 ^ TRUE; 
END; 
RETURN 
END; 

MakePointerType: PROCEDURE [refType: SEIndex] RETURNS [sei: CSEIndex] - 
BEGIN 

sei *r makenonctxse[SIZE[pointer constructor SERecord]]; 
{seb+sei)t <r- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: constructor[ 
pointer[ 

ordered: FALSE, 
readonly: FALSE, 
basing: FALSE, 
pointedtotype: refType, 
dereferenced: FALSE]]]; 
RETURN 
END; 

MakeSubrangeType: PROCEDURE 

[s: STRING, origin: INTEGER, range: CARDINAL] 
RETURNS [ISEIndex] - 
BEGIN 

sei: CSEIndex; 

sei ^ makenonctxse[SIZE[subrange constructor SERecord]]; 
{seb+sei)t <- SERecord[mark3 : TRUE, mark4: TRUE, 
sebody: constructor[ 
subrange[ 

filled: TRUE, 
empty: FALSE, 
flexible: FALSE, 
rangetype: dataPtr . idlNTEGER, 
origin: origin, 
range: range]]]; 
RETURN [MakeNamedType[s. sei]] 
END; 

Lockid: PUBLIC PROCEDURE RETURNS [HTIndex] « 
BEGIN 

desc: SubStringDescriptor ^ [base: "LOCK"L. offset:0, length: ( "LOCK"L) . length]; 
RETURN [EnterString[@desc]] 
END; 

PlUnit; PUBLIC PROCEDURE [tableSeg: SegmentDef s.FileSegmentHandle] 
RETURNS [success: BOOLEAN] » 
BEGIN OPEN SegmentDefs; 
TableDef s .AddNotify[PlNotify]; 
Pref inSymbols[]; 
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SwapIn[tab1eSeg]; 

[complete:success, nErrors : dataPtr.nErrors] <- 

PlDefs.Parse[dataPtr.sourceStream, LOOPHOLE[FileSegmentAddress[tableSeg]]]; 
Unlock[tableSeg]; SwapOut[tableSeg] ; 
TableDefs.DropNotify[PlNotify]; 
RETURN 
END; 

-- initialization code 

CompilerDefs. Makes wappab1e[PlDefs. Scanner, pas si]; 
CompilerDefs.MakeSwappablefPlDef s. Parser, pas si]; 
CompilerDefs.MakeSwappablefPlDefs.PasslT, pas si]; 

END. 



